home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / print / prtsc.arc / PS.PAS < prev   
Pascal/Delphi Source File  |  1988-01-13  |  928b  |  38 lines
  1. Program TSR_Print_Screen;
  2.    {This program replaces the int 5 print screen routine with a new
  3.     routine for use with Novell ELS servers}
  4. Uses DOS;
  5.  
  6.    Procedure Print_Screen;
  7.       Interrupt;
  8.       var
  9.          i:Integer;
  10.          Base:Word;
  11.          lst:text;
  12.          monomode:Boolean;
  13.       Begin
  14.       MonoMode:=(Mem[$0000:$0449]=7);
  15.       If monomode then base:=$b000 else base:=$b800;
  16.       assign(lst,'lpt1');
  17.       rewrite(lst);
  18.       For i:=0 to 2000 do
  19.          begin
  20.          Write(Lst,chr(mem[base:i*2]));
  21.          if (i+1) mod 80=0 then writeln(lst);
  22.       end;
  23.       close(lst);
  24.    End;
  25.  
  26.    Procedure Install_Print_Screen;
  27.       Begin
  28.       inline($fb);
  29.       SetIntVec(5,@Print_Screen);
  30.       inline($fa);
  31.    End;
  32.  
  33.    begin
  34.    Writeln('Novell ELS print screen utitility');
  35.    Writeln('Copyright 1988 Rochester Business Computers');
  36.    Install_Print_Screen;
  37.    keep(0);
  38. end.